From f4065ec544801be0db356f6e701fb412d7f59b02 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 17 Apr 2009 00:55:41 +0000 Subject: [PATCH] (ftfont_pattern_entity): Return a newly allocated entity even if the cache hits. --- src/ftfont.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/ftfont.c b/src/ftfont.c index 8b0bb06a886..fdc6bc03bca 100644 --- a/src/ftfont.c +++ b/src/ftfont.c @@ -208,7 +208,14 @@ ftfont_pattern_entity (p, extra) cache = ftfont_lookup_cache (key, FTFONT_CACHE_FOR_ENTITY); entity = XCAR (cache); if (! NILP (entity)) - return entity; + { + Lisp_Object val = font_make_entity (); + int i; + + for (i = 0; i < FONT_OBJLIST_INDEX; i++) + ASET (val, i, AREF (entity, i)); + return val; + } entity = font_make_entity (); XSETCAR (cache, entity); -- 2.30.2